home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / pset.prg < prev    next >
Text File  |  1986-09-24  |  768b  |  38 lines
  1. *PSET -PRG TO SEND CONTROL CODES TO EPSON(or COMPATIBLE) PRINTER
  2. *see Sept 30,1986 PC Magazine for more details
  3. *
  4. *INCOMING PARAMETER USES SPACE AS DELIMITER
  5. *PRINTER MUST BE ON LINE
  6. *EXAMPLE:SET TO COMMPRESSED MODE-  DO PSET WITH '15'
  7. *EXAMPLE:RESET TO PICA MODE-       DO PSET WITH '18'
  8. *WILL ALSO HANDLE ESCAPE CODES
  9. *
  10. PRIVATE INCOMING,PSET,LOC,SEG
  11. PARAMETER INCOMING
  12. SET CONSOLE OFF
  13. PSET = INCOMING
  14. DO WHILE " "$PSET
  15. LOC=AT(" ",PSET)
  16. SEG="CHR("+SUBS(PSET,1,LOC-1)+")"
  17. SET PRINT ON
  18. ?? &SEG
  19. SET PRINT OFF
  20. PSET=SUBST(PSET,LOC+1)
  21. ENDDO
  22. SEG="CHR("+PSET+")"
  23. SET PRINT ON
  24. ?? &SEG
  25. SET PRINT OFF
  26. SET CONSOLE ON
  27. RETURN
  28.  
  29.  PRINT OFF
  30. PSET=SUBST(PSET,LOC+1)
  31. ENDDO
  32. SEG="CHR("+PSET+")"
  33. SET PRINT ON
  34. ?? &SEG
  35. SET PRINT OFF
  36. SET CONSOLE ON
  37. RETURN
  38.